#!/usr/bin/perl -w

@list = glob "*";

foreach (@list) {

$link = readlink "$_";
 if ($link) {
 print " $_ is name of $link \n";
 }
}
